unit MainForm1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ButtonGroup, XPMan, AdvGlowButton, Grids, BaseGrid, AdvGrid,
  mail_msg,mail_consts, AdvMemo, xmldom, XMLIntf, oxmldom, XMLDoc;

type
  TMainProgForm = class(TForm)
    mailSettings: TAdvGlowButton;
    AdvGlowButton1: TAdvGlowButton;
    AdvGlowButton2: TAdvGlowButton;
    AdvMemo1: TAdvMemo;
    AdvGlowButton3: TAdvGlowButton;
    XMLDocument1: TXMLDocument;
    procedure mailSettingsClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainProgForm: TMainProgForm;

implementation

uses OptionsForm1;
{$R *.dfm}

procedure TMainProgForm.mailSettingsClick(Sender: TObject);
begin
  case OptionsForm1.OptionForm.ShowModal of
    mrOk: msgTest();
    mrCancel: msgTest();
  else
    msgBadTest();
  end;
end;

procedure TMainProgForm.FormCreate(Sender: TObject);
begin
  Caption:=c_capMainProgForm;
  mailSettings.Caption:=c_capMailSettingsBtn;
end;

end.
